Magnum One

home *** CD-ROM | disk | FTP | other *** search

/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / amac36.arc / RFRM25.QM < prev next >

Wrap

Text File | 1991-03-16 | 77KB | 1,659 lines

* (RFRM25).QM *┌──────(INDEX) Macros to Reformat Blocks, Paragraphs and Documents ───────────┐ *│ Bytes *│^(1_) Move block, fill old block with blanks 16 <-new *│#(f1_) Capitalize word at cursor 7 <-new *│#(f2_) Capitalize first letter of word at cursor 10 <-new *│#(f3_) Capitalize first letter of every word in column block 53 <-change *│#(f4_) Un-capitalize word at cursor 7 <-new *│ *│@(F6) Right Justifies BLOCK 81 <-change *│@(F1) Right Justifies DOCUMENT 106 *│@(F2) Right Justifies DOCUMENT, Screen preview 14 *│@(F4) Removes Right Justification from LINE or BLOCK 81 *│@(F5) Removes Right Justification from DOCUMENT 80 *│@(F8) Deletes all BUT single space BLANK lines in document 21 *│@(F7) SINGLE SPACE document, Deletes ALL BLANK lines in document 20 *│@(F9) DOUBLE SPACE document 38 *│@(F10) TRIPLE SPACE document 62 *│ *│@(1) Adds asterisk and space in front of BLOCK 27 *│@(t) Adds asterisk and space in front of BLOCK (Tim Farley) 44 *│@(3) Adds asterisk and space in front of BLOCK or PARAGRAPH 18 *│@(6) Adds asterisk and one space in column 1 12 *│@(5) Deletes first two characters of line 11 *│@(4) Deletes asterisk and one space in column 1 25 *│@(7) Deletes asterisk and ALL space at beginning of line 17 *│@(2) Deletes asterisk and one space in front of BLOCK 11 *│@(9) COUNTS number of words in a document, words=letters/numbers 50 *│@(0) COUNTS number of words in a document, words sep. by spaces 80 *│@(n) COUNTS number of characters in a document 92 *│ *│^(3_) Formats PARAGRAPH, fast and small 8 *│^(0_) Formats PARAGRAPH 60 *│^(5_) Formats DOCUMENT with blank lines forming PARAGRAPHS 26 *│^(8_) Formats QMAC txtfile BLOCK with asterisks in col. 1 61 *│^(9_) Formats BLOCK. Must position cursor at BLOCK begin 62 *│^(7_) Formats Message Reader Paragraph (Tim Farley) 132 *│ *│^(b) Replace "period space" w/ "period two_spaces" - PARAGRAPHS 54 *│^(c) Replace "period space" w/ "period two_spaces" - DOCUMENT 38 *│ *│^(F9_) Make a COMMA delimited file (Sammy Mitchell) 37 *│^(F10_)"Break apart" a COMMA delimited file (Sammy Mitchell) 54 *│ *│@(h) Select Index item with cursor line, then <enter>. 47 *│ *│(Index) - How to locate macro or item below from Index using @h *│(Description) - Reformat Macros *│(Macros) - Reformat Macros *│(Other) Macros - not included *│(Test) Paragraph To Reformat *│(Version) history *└────────[ be sure to leave at least one blank line at end of Index ]────────┘ * (Description): * (RFRM25).QM are macros to reformat QEDIT blocks, paragraphs, and * documents. Asterisks are also added and deleted in front of lines, * block, and paragraphs. Number of words and characters in a document * can also be counted. Comma delimited files can also be made and * "broken apart". Documents can formatted with right justification. * Blocks can be right justified. Documents can be double and triple * spaced. * * If column width of the unformatted paragraphs and blocks are greater * than 80 columns, there must be enough blank lines for ^8, 9 & 0 to * paste the reformatted text back and not overlap unformatted areas. In * other words, BE CAREFUL! * * For faster macro execution, replace "C:" with your ram drive. * * Insert and AutoIndent should be ON. * * (Other) Macros available: See ALLMACRO.INF. * (Index) Use; * * To locate a macro or item in this file, press @h, place the cursor * line on the desired item in the Index above, and press <enter>. * See BOOK15.QM for more details. * These macros require "QEdit and QMAC v2.1, February, 1990" or later. * To BEGIN, just type "START RFRM" <Enter>. All pertinent files will be * loaded in the "Ring" for viewing, and RFRM25.MAC is read. * Alternatively, type "START RFRM 0" <Enter> and the disk copies of all * files in the "Ring" will be loaded ready for editing, saving time. * (Macros):------------ * ┌───────────────────────────────────────────────────────────────────┐ * │@(1) Place asterisk and space in column 1 in front of marked block │ * └───────────────────────────────────────────────────────────────────┘ * To run, first mark and close a block with markblockbegin and * markblockend, markline, or dropanchor. Blocks may contain blank * lines. No column blocks, please. The cursor may then be positioned * anywhere to run. Press Alt and 1 at the same time. An asterisk and a * space are placed in column 1 in front of the marked block only. * Marked block does NOT have to be a paragraph as in Alt_2. If a block * is not marked, the cursor line is treated as a block, and an asterisk * and space are placed in column 1 the same as done with Alt_6. @1 Macrobegin Cut * Cut block to scrap Editfile "$" Return * Load $ (temp file) Quit * Quit if in ring Editfile Return * Reload Paste * Paste block to $ NEXT: * Come here until done Begline * Stay in column 1 "* " * Put asterisk space in col 1 Cursordown * Move down to next line Jtrue NEXT: * If not done go to NEXT Begfile * Go to begfile $ Markblockbegin * Get line 1 col 1 in block Copy * Get block w/asterisks to scrap Quit * Quit $ Paste * Put block back with asterisks END: * * 27 bytes Tue 09-11-1990 19:28:29 *┌──────────────────────────────────────┐ *│ @(t) Alternate version of @1 │ *└──────────────────────────────────────┘ * Here's an alternate version of Alt_1 from Tim Farley of SemWare that * seems to do the same thing. It's faster, runs smoother, but is a * little larger if that's important. I feel Tim came up with a better * way to do the same thing by using shiftright and fillblock. Use * whichever you prefer that get's the job done for you. * * PN>I tried out two dBase commenting macros (from Tom Hogshead) last night. * PN>Neither of them does quite what I'm trying to achieve. * PN> * PN>What I need to do is comment out (i.e., put an asterisk in front of) * PN>each line in a blocked area. * * Here's an alternate version that uses the column marking ability, * ShiftRight, and FillBlock to do the job. * TH>When marking a block with markblockbeg and markblockend, it adds one * TH>extra line to the bottom of the block. Adding cursorup in line #11 * TH>seems to get things to comment out the block as originally marked. * TH>Line blocks work OK. * * Hmmmm....I'll try it out. * * Ooops! I guess I broke part of it in my last minute tweaking. * * Here is a version that works right in *all* cases, including a * single line: * * DBASE COMMENT OUT MACRO * * Mark a block (doesn't matter if it is a char, line or column block). * Hit this key, and all the lines in the block will be commented out * with a "* " at the beginning of the line. * * After it is done, the block will be left marked as a line block, * and the cursor will be at the top of the block. * * Correctly detects case where you are in the middle of marking, * and also the case where no block is marked. * @t MacroBegin GotoBlockBeg * Has block been closed? GotoBlockEnd JTrue doit: * if cursor moved, go ahead MarkLine * no movement? close block GotoBlockEnd JFalse end: * no movement? no block! quit. doit: EndLine BegLine * <----NEW for single line case GotoBlockEnd * Remember end of the block GotoBlockBeg * But go to beginning MarkLine * Mark as line from here... PrevPosition * ...to the previous end of block. MarkLine BegLine * <----NEW for column block case ShiftRight ShiftRight * Two characters over please GotoBlockEnd * Remember end of the block GotoBlockBeg * But go to beginning MarkColumn * Start marking a column PrevPosition * ...to end of previous block BegLine * But only in column 1 of these lines MarkColumn * ...and finish marking. FillBlock "*" Return * Fill Column 1 with Stars! GotoBlockEnd * Remember end of the block GotoBlockBeg * But go to beginning MarkLine PrevPosition MarkLine * Re-mark as a line block GotoBlockBeg * And leave us at the top. Jump done: end: UnMarkBlock done: * * 44 bytes Fri 08-24-1990 16:23:16 (line added TH ) * Interestingly enough, since "*" is also a comment mark for QEdit * macros, you can use this to comment out lines in QEdit macros * too! * * There is one special case where this macro can do something odd, * and that is if you mark a single line as a block and comment it * out. But since a single line can be commented out just by * hitting HOME and typing "*", I doubt that will be a problem. * * One nice side effect: it leaves the lines marked as lines, so if * you want to *uncomment* them, just hit ShiftLeft twice. * * If you remove the comments and reformat, I think you can fit this * in QCONFIG.DAT. * * --Tim Farley * ┌────────────────────────────────────────────────────────────────┐ * │@(2) Deletes asterisk and one space in front of marked block │ * └────────────────────────────────────────────────────────────────┘ @2 Macrobegin Gotoblockbeg * Block? JFalse END: * No block! end Shiftleft Shiftleft * Delete asterisk and space Unmarkblock * Unmarkblock END: * * 11 bytes Wed 08-22-1990 10:29:17 * ┌────────────────────────────────────────────────────────────────────┐ * │@(3) Places an asterisk and space in front of block that IS a │ * │ paragraph and also in front of any paragraph that is NOT marked │ * │ as a block from the cursor to the end of the paragraph. │ * └────────────────────────────────────────────────────────────────────┘ * * To run, first either mark a paragraph as a block with markblockbegin * and markblockend or position the cursor at the beginning of a * paragraph in column 1. After loading the macro, press Alt and 3 at * the same time. An asterisk and a space are placed in column 1 in * front of the block, or the paragraph from the cursor to the end * of the paragraph. Remember, a paragraph is defined as having a * blank line at the beginning and end. * @3 Macrobegin Gotoblockbeg * Go to block begin NEXT: * Endline Begline * End if line blank Jfalse END: * If line blank, go to end "* " * Put asterisk space in col 1 Cursordown * Move down to next line Jump NEXT: * Cycle until done END: * * * 18 bytes Mon 08-20-1990 22:19:35 * ┌───────────────────────────────────────────────────────────┐ * │@(4) Deletes asterisk and SINGLE space tat beginning of line│ * └───────────────────────────────────────────────────────────┘ * Use to remove asterisk and space inserted with Alt_6. Lines with * no asterisk are not changed. * @4 Macrobegin START: Unmarkblock * Unmark any blocks Begline * Go to begline Markcolumn * Mark it Cursorright * Go to column 2 Find "*" Return * Find asterisk space "BL" Return * Back in block only Jfalse NEXT: * If found Delch * Delete asterisk Delch * Delete space NEXT: * Come here if no astk in col 1 Cursordown * Down to next line Begline * Begline Unmarkblock * Unmark * * 25 bytes Tue 08-21-1990 13:30:16 * ┌─────────────────────────────────────────────────────────┐ * │@(5) Deletes first two characters at beginning of line │ * └─────────────────────────────────────────────────────────┘ * Lines without an asterisk will also have the first two spaces * deleted. This macro is considerably smaller than @4 (11 vs 35 bytes), * but it is not quite as safe; @4 will NOT erase the first two * characters unless the first one is an asterisk. @5 Macrobegin START: Unmarkblock * Unmark Begline * Go to begline Markline * Mark line Shiftleft * Shift char 1 out of block Shiftleft * Shift char 2 out of block Unmarkblock * Unmark line Cursordown * Down to next line * * 11 bytes Tue 09-11-1990 17:33:17 * ┌──────────────────────────────────────────────────────┐ * │@(6) Adds asterisk and one space at beginning of line │ * └──────────────────────────────────────────────────────┘ * Useful in preparing txtfiles for QMAC. To run, just press Alt_6 and an * aste isk and blank space are inserted in column 1 and 2 in front of * any other text on the line. Use Alt_4 or 5 to remove asterisk and * space inserted with this macro. * @6 Macrobegin Unmarkblock Begline "* " Cursordown Begline * * 12 bytes Mon 07-30-1990 11:03:14 * ┌───────────────────────────────────────────────────────────┐ * │@(7) Deletes asterisk and any space at beginning of line │ * └───────────────────────────────────────────────────────────┘ * To run, press Alt_7, and the asterisk in column 1 on the cursorline * and all space up to the first word on the line is deleted. This * macro erases too much if there are two asterisks and no letters on * same line. * @7 Macrobegin Unmarkblock * Get ready Begline * Go to begline Delch * Delete first asterisk Endline Begline * Check if anything else on line Jfalse NEXT: * If line blank, go to next Markcolumn * Otherwise, mark begline Wordright * Go to first word on line Cursorleft * Get cursor off word Deleteblock * Delete all space to beginline NEXT: * Cursordown * Cursordown and end * * 17 bytes Mon 07-30-1990 11:03:26 * ┌────────────────────────────────────────────────────────────────────┐ * │@(9) Macro To Count Words In Document, Words are letters and numbers│ * └────────────────────────────────────────────────────────────────────┘ * This macro counts the number of words in a document. A "word" is at * least one letter or number separated by a space or the following word * separators: * !@#$%^&*'()+|-=\,./;'[]<>?:"{} * If it's important to you that words be considered as "any string * separated by at least one space", macro @0 below is the macro to * use. The @9 macro counts words like "can't" as two words; @0 counts * them as one word. * Test macro using the calibrated file WORD (19 words). * ----------------------------------- * @9 Macro To Count Words In Document * ----------------------------------- * [ Number of WORDS in document ] = [ Number of LINES in temp file ] * @9 Macrobegin * *----Be Sure Last Line Is Blank---------* Endfile Begline * Check for blank line at end Jfalse START: Addline * If last line is NOT blank, * test fails, then addline *----Copy Words To Scratch Buffer-------* START: Begfile Insertline * Insert blank line at top to * be sure to find first word Wordright Markword * Mark first word Cursorup Delline * Delete blank line Storescrbuff "1" Return * Store word to scratch buffer COUNT: Cursordown * Check if on last line Jfalse GETCOUNT: Cursorup * If can't cursor down, must * be on last line, go to * GETCOUNT, or cursorup *ELSE WordRight MarkWord * Move to next word and mark it Jfalse COUNT: * If at endline, no word exists * so COUNT again *ELSE Appendscrbuff "1" Return * Append word to scratch Jump COUNT: * and go-to COUNT again *----Get Word Count---------------------* GETCOUNT: Editfile "!" Return Quit * Quit temp file Editfile Return * Load temp file to count words Getscrbuff "1" Return * Make list of words Unmarkblock Endfile * WORD COUNT = # LINES * * 50 bytes Sat 10-13-1990 03:18:33 * ┌─────────────────────────────────────────────────────────────┐ * │@(0) Counts words in a document, words separated by spaces │ * └─────────────────────────────────────────────────────────────┘ * @0 differs from @9 in that a "word" with @0 is considered any string * separated by at least one space. @9 macro considers a "word" to be at * least one letter or number separated by a space or the following word * separators: !@#$%^&*'()+|-=\,./;'[]<>?:"{} ... @9 counts words like * "can't" as two words; @0 counts them as one word. * * @0 is a little longer and slower than @9, but if it's important to * you that words be considered as "any string separated by at least * one space", this is the macro to use. * Test macro using the calibrated file WORD (46 words). * ----------------------------------- * @0 Macro To Count Words In Document * ----------------------------------- * [ Number of WORDS in document ] = [ Number of LINES in temp file ] * @0 Macrobegin *----Toggle Insert ON-------------------* Insertline "A" Cursorleft "A" * Insert test line Endline Jtrue WASON: * If not at endline-Insert is ON Toggleinsert Jump WASOFF: * Or Insert is off-toggle ON WASON: Cursorleft * Clean up cursor movement WASOFF: Cursorleft Delline * Clean up cursor movement *----Copy Document To Temp File---------* BegFile Markblockbegin * Mark document EndFile Markblockend * Editfile "!" Return * Load temp file Killfile Quit Editfile Return * Kill/quit/load temp file Copyblock Unmarkblock * Copy doc to temp file Endfile Addline Begfile * Add blank line at end *----Split Words One Word Per Line------* COUNT1: Find " " Return Return * Find first space COUNT2: Return * Put next word on next line NOSPACE: CursorDown * Move down to next line Jfalse DELBLANKLINES: * If can't move down must be * on last line, then begin to * delete all blank lines Cursorup * Move back up one line Repeatfind * Find another space JTrue COUNT2: * Put next word on next line *----Delete Blank Lines-----------------* DELBLANKLINES: Begfile * Get to begin of file CHK4BLANK: Endline Begline * Check if line has text Jtrue NOTBLANK: * If so, go to NOTBLANK Delline * Or line is blank, delete it Jtrue CHK4BLANK: * Go check next line NOTBLANK: Endpara *ELSE Move to pargraph end Cursordown * Move down to next line Jtrue CHK4BLANK: * If not eof, check again |2.4 *----Get Word Count---------------------* GETCOUNT: Findreplace " " Return "|" * Remove all extra spaces Backspace Return "GN" Return * Makebotofscreen * WORD COUNT = # LINES * * 89 bytes Sat 10-13-1990 02:44:52 * 85 bytes Mon 10-15-1990 21:58:35 * 82 bytes Wed 02-20-1991 16:54:02 * ┌────────────────────────────────────────────────────────┐ * │@(n) Counts the number of characters in a document │ * └────────────────────────────────────────────────────────┘ * This macro counts the number of characters in a document. After * running, the byte size of a modified document file with all spaces * removed is shown in col. 1 on the last line. Subtract 2 x number of * lines from the byte size to get the number of characters. * Test macro using the calibrated file WORD (138 -2 x 6 = 126 chars.) * ---------------------------------------------------- * @n Macro To Count Number Of Characters In A Document * ---------------------------------------------------- @n Macrobegin *----Copy Document To Temp File---------* BegFile Markblockbegin * Mark document EndFile Markblockend * Editfile "!" Return * Load temp file Killfile Quit Editfile Return * Kill/quit/load temp file Copyblock Unmarkblock * Copy doc to temp file *----Remove All Spaces------------------* Findreplace " " Return "|" * Remove single space globally Backspace Return "GN" Return * *----Delete Blank Lines-----------------* DELBLANKLINES: Begfile * Get to begin of file CHK4BLANK: Endline Begline * Check if line has text Jtrue NOTBLANK: * If so, go to NOTBLANK Delline * Or line is blank, delete it Jtrue CHK4BLANK: * Go check next line NOTBLANK: Endpara *ELSE Move to pargraph end Cursordown * Move down to next line Jtrue CHK4BLANK: * If not eof, check again |2.4 *----Get Number Of Characters-----------* GETCOUNT: * Savefile * Save tmmp file to get size DOS "Dir " Currentfilename * Get size with Dir ">C:$" Return Return * Save DIR list to temp c:$ Editfile "C:$" Return * Load DIR listing of temp file Gotoline "4" Return * Drop down to file line Wordright Markword Copy * Get size to scrap Killfile Quit * Kill/quit c:$ Editfile "!" Return Killfile * Load & kill temp file Begline Paste Makebotofscreen * Character Count = Byte Size * minus 2 x Number of Lines * 95 bytes Sat 10-13-1990 11:27:13 * 92 bytes Wed 02-20-1991 17:02:29 * ------------------------------------------------ * ^(1_) Block move, fills old block with blanks * ------------------------------------------------ * * Mark block as column or character block, not a line block. Move * cursor to location to move block to, press ^1, and block is moved to * new location. Old block is filled with spaces. * * This macros is a slight modification to a macro written by Tim Farley * of SemWare (message #665/REGDOS conf). I changed "Paste" to PastOver" * so all surrounding text postion remains unchanged, and removed the test * if block was cut to end macro. Tim's macro and comments are included * below this macro. * 02 MacroBegin GotoBlockBeg * Get to block begin JFalse END: * If no block, end macro Cut *ELSE Cut block to scrap Paste * And paste it back where it was PrevPosition * Move where new block will be FillBlock " " Return * Fill old block with blanks Pasteover * Paste old block to new loctn. END: * * * 16 bytes Thu 02-28-1991 15:14:17 * * To: JOHN PHILLIPS Refer#: 665 * *From: TIM FARLEY Read: NO * *Subj: Block_Move Problem? Status: PUBLIC MESSAGE * *Conf: REGDOS (1) Read Type: GENERAL (+) * * * *JP>* * *JP>* Block Cut and Move with blank fill * *JP>* * * * *Neat macro, thanks for posting it. I'm sure there are others * *here who will take advantage of it. * * * *One thing: * * * *JP> Store_Scrbuff 'Temp.$$$' * *JP> Return * *JP> Cut Paste * *JP> FillBlock ' ' * *JP> Return * * * *I don't think the Cut/Paste sequence is actually necessary, * *unless the effect desired is to get a copy of the block into the * *scrap buffer for later use (after the macro is over) by Paste or * *PasteOver. * * * *If you really want it to work more like the "MoveBlock" command, * *you could make it simpler. Because, with MoveBlock, you HAVE to * *have closed the block, and move the cursor to where you want it * *moved to. Thus, you get rid of two things: (1) the need to test * *whether the block is marked, and close it if need be (not to * *mention the assumption that it is a column block); and (2) the * *need for the Pause command. * * * *Here it is: * * * @0 MacroBegin GotoBlockBeg * Get to block * JFalse end: * No move? No block! * Cut * Get into scrap * JFalse end: * No cut? No block! * Paste * Put back, with marked * PrevPosition * Back to where we were * FillBlock ' ' * Fill the original block * Return * Paste * and put a copy at cursor. * end: * * 19 bytes Thu 02-28-1991 15:30:52 (line added TH) * * *This macro (aside from being shorter & therefore faster) also * *quite nicely does nothing if the block is in the middle of being * *marked, or if there is no block marked. It should work OK with * *line and character blocks too. * * * *Also: you could modify this macro to do PasteOver instead of * *Paste at the end, which would make it paste the text "on top of" * *the pre-existing text. * * * *--Tim Farley * * SemWare Technical Support * ------------------------------------------------------ * #(f1_) Capitalize word at cursor * ------------------------------------------------------ * #f1 macrobegin markword upper unmarkblock * * 7 bytes Mon 08-20-1990 07:17:53 * ---------------------------------------- * #(f2_) Capitalize first letter of word * ---------------------------------------- * #f2 macrobegin markword gotoblockbeg unmarkblock markcolumn upper unmarkblock * * 10 bytes Sun 03-10-1991 16:05:55 *------------------------------------------------------------ * #(f3_) Capitalize first letter of every word in column block |2.5 *------------------------------------------------------------ * * Mark column block, then press #f3 to capitalize first letter of every * word in block. Unmark when finished if OK. Block MUST be a column * block, NOT a line or character block. * #f3 Macrobegin Editfile "C:!" Return * Load temp file Killfile Quit * Kill/quit temp file Gotoblockbeg * Position cursor to return to Jfalse STOP: * Stop macro if no block Onewindow * Close all windows Horizontalwindow Zoomwindow * Open window Editfile Return * Edit blank temp file Copyblock * Copy block to temp file Gotoblockend #255 * Mark block end +1 with #255 Begfile Insertline * Insert line to start caps START: * on first word Wordright * Move to next word Jfalse END_LOOP: * If no more words, END macro Markcolumn Upper Unmarkblock *ELSE capitalize first letter Jump START: * and continue until no more END_LOOP: * Begfile Delline * Delete temp line MarkColumn * Mark block begin Find #255 Return Return * Find block marker Cursorleft * Move cursor to end of block Prevwindow * Return to orig file Copyoverblock * Copy block back to orig file * where we were Nextwindow Killfile Quit * Kill/quit temp file and * return to where we started * Unmark block if OK! STOP: * We're done... * * 53 bytes Fri 02-22-1991 16:08:43 * ------------------------------------------------------ * #(f4_) Un-capitalize word at cursor * ------------------------------------------------------ * #f4 macrobegin markword lower unmarkblock * * 7 bytes Mon 08-20-1990 07:18:07 * ┌─────────────────────────────────────────────────────────────────────┐ * │^(3_) Formats a paragraph. (Macro has been around a long time) │ * └─────────────────────────────────────────────────────────────────────┘ * 04 Macrobegin Cursordown * move down one line Prevpara * get to beginning of paragraph Wrappara * reformat Nextpara * go to begin next paragraph * * 8 bytes Wed 08-01-1990 10:47:36 * ┌─────────────────────────────────────────────────────────────────────┐ * │^(5_) Formats complete document with blank lines forming paragraphs │ * └─────────────────────────────────────────────────────────────────────┘ * 06 MacroBegin Unmarkblock * Unmark Begfile * Get to file begin Setrmargin "69" Return * Set new right margin FORMAT: * Jfalse FINISH: * No more para? go to FINISH WrapPara * Reformat NextPara * Get to begin next paragraph Jump FORMAT: * FINISH: * No more paragraphs Setrmargin "80" Return * Reset right margin * * 26 bytes Wed 09-12-1990 16:47: *┌─────────────────────────────────────┐ *│^(7_) Format Message Reader Paragraph│ *└─────────────────────────────────────┘ * Here's a handy macro from Tim Farley of SemWare to reformat a message * reader paragraph. Remember, paragraphs are reformated to the width * of the right margin setting, so set as needed. * * ============================================================================== * Date: 10-01-90 (19:09) Number: 3041 SemWare Support BBS * To: DAN SNAPPER Refer#: 3028 * From: TIM FARLEY Read: YES * Subj: Message reformat macro Conf: (21) ILink * ------------------------------------------------------------------------ * DS> Does anyone have a macro to reformat a quoted 'off-line' * DS> message paragraph and then reinsert the quotes back? * DS> * DS> * DS> * * Here it is: * * * Reader Paragraph Reform * Mark a line block, hit this key, and it will reform the text, leaving * all "II>" quoting on the left alone. * * Assumes that ">" is the last character of the "quoting" mark. * Also assumes that WordWrap is currently on when you hit it, * and that there is a currently marked block. * 08 MacroBegin OneWindow GotoBlockBeg GotoBlockEnd JTrue doit: MarkLine GotoBlockEnd doit: ToggleWordWrap EndLine #254 ToggleWordWrap GotoBlockBeg GotoColumn "16" Return Find ">" Return "BL" Return JTrue foundit: BegLine foundit: CursorRight UnmarkBlock MarkColumn Find #254 Return "N" Return GotoColumn "512" Return MarkColumn BegLine GotoBlockBeg Cut MarkLine CopyBlock CopyBlock CopyBlock UnmarkBlock HorizontalWindow EditFile "$$$$$$$$.tmp" Return BegFile BegLine * Top of files in case it was already here InsertLine InsertLine * ?? Paste UnMarkBlock * put block in place EndFile AddLine BegFile * mandatory blank line on end more: WrapPara * wrap each para JTrue more: * until none left DelLine BegFile BegLine Find Return Return * find our goofy char again DelCh * and delete it GotoColumn "512" Return MarkColumn BegFile BegLine MarkColumn Cut Quit PrevWindow OneWindow Paste GotoBlockEnd CursorDown BegLine UnMarkBlock * * 132 bytes Tue 10-02-1990 16:51:06 (added TH) * This macro is too long for QCONFIG, you'll have to use QMAC to * compile it. Then put the compiled macro files in some directory, * and add the following option to the command line your reader runs * QEdit with: * * /Ld:\dir\filename.ext * * where D:\DIR\FILENAME.EXT is the full drive, path, and name of * the compiled binary macro file. * * I've used this macro myself to reformat quotes, for over a year * now. * * --Tim Farley * SemWare Technical Support * ┌─────────────────────────────────────────────────────────────────────┐ * │^(8_) Formats QMAC txtfile block with asterisk in column 1 │ * └─────────────────────────────────────────────────────────────────────┘ * To run, position the 'cursor line' on the first line of the block to * reformat. Press Ctl_8, then cursor down to bottom of block to * reformat. To reformat, press 'Enter' when the block is marked. This * macro differs from Ctl_9 in that the block does not include the * asterisk and blank space; in Ctl_9 the block starting position is * selected by the starting position of the cursor line. This macro also * differs from Ctl_0 which formats a paragraph from first blank line * which has no text or asterisk on line to last blank line. * * 09 Macrobegin Unmarkblock * Get ready Gotocolumn "512" Return * Get all block to format Markcolumn * Mark begin of block Begline * Start at line begin Wordright * Get to first word on line Cursordown * Position to cursor down Makectrofscreen * See better Pause * Cursor to end, then 'Enter' Markcolumn * Mark end of block Gotoblockbeg * Get to block begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Reset rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark endblock Gotocolumn "69" Return ** * Get all block marked ** change "65" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Pasteover * Put back formatted, marked Makectrofscreen * Better view END: * * 61 bytes Tue 09-11-1990 19:21:48 * ┌─────────────────────────────────────────────────────────────────────┐ * │^(9_) Formats Block. Must position cursor at beginning of block │ * └─────────────────────────────────────────────────────────────────────┘ * To run, position the 'cursor' at the beginning of the block to * reformat. Press Ctl_9, then cursor down to bottom of block to * reformat. Press 'Enter' when the block is marked. This macro differs * from Ctl_8 in that the starting position of the block to be * reformatted is selected by the starting position of the cursor; in * Ctl_8 the block starting POSITION is selected by the starting * position of the cursor line. * * 10 Macrobegin Unmarkblock * Get ready Gotocolumn "512" Return * Get all block to format Markcolumn * Mark begin of block Prevposition * Begline * Prevposition * Makectrofscreen * See better Cursordown * Position to cursor down Pause * Cursor to end, then 'Enter' Markcolumn * Mark end of block Gotoblockbeg * Get to block begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Reset rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark endblock Gotocolumn "69" Return ** * Get all block marked ** change "69" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Pasteover * Put back formatted, marked Makectrofscreen * Better view END: * * 62 bytes Tue 09-11-1990 19:09:31 * This is a test block. To format, place the "cursor" on "t" in * in "this" on line 1. Then press Ctl_9 and cursor down to * block end. When the block has been marked press * 'Enter'. * Asterisks need not be removed. * ┌─────────────────────────────────────────────────────────────────────┐ * │^(0_) Formats Paragraph Only. Keeps in original indented position │ * └─────────────────────────────────────────────────────────────────────┘ * To run, place cursor line anywhere in a paragraph, and press Ctl_0. * This macro yields the same formatted paragraph as does Ctl_3 if * the right margin is set to 69 in the QEdit menu or in QCONFIG.DAT. * This macro is the starting point for putting together macros Ctl_8 * and 9. If there are asterisks in column 1 they are also formatted as * part of the paragraph. 11 Macrobegin Unmarkblock * Get ready Cursordown * Get into paragraph Prevpara * Get to paragraph begin Markcolumn * Mark column Endpara * Get to paragraph end Gotocolumn "512" Return * Get all paragraph in block Markcolumn * Mark paragraph Gotoblockbeg * Get to paragraph begin JFalse END: * No block? End Cut * Get into scrap Editfile "C:$" Return * Load C:$ (temp file) Paste * Paste block to C:$ Setrmargin "69" Return ** * Set rt margin to 69 ** change "69" as needed Wrappara * Format block Setrmargin "80" Return * Set rt margin to 80 Begfile * Get to block begin Markcolumn * Mark Endfile * Mark end block Gotocolumn "69" Return ** * Get all block marked ** change "69" as needed Copy * Get formatted block to scrap Killfile Quit * Kill/quit C:$ Paste * Put back formatted, marked * Pasteover * Put back formatted, marked Begline Makectrofscreen * Better view END: * * 60 bytes Tue 09-11-1990 19:12:08 *****************************TEST PARAGRAPH************************************ This is a (test) paragraph. Place the cursor line anywhere in this paragraph to run. Press Ctl and 0 at the same time. Be sure AutoIndent is ON. (Long line for test )==>>>>>>>>>>>>>> ***************************************** ***************************************** ***************************************** ***************************************** ***************************************** ***************************************** ******************************TEST PARAGRAPH*********************************** *┌───────────────────────────────────────────────────────────────────┐ *│@(h) Finds first word on cursor line marked in document below │ *└───────────────────────────────────────────────────────────────────┘ * * @h macro has 2 steps: * * 1. Press @ and h at the same time. An ! shows at the * end of the top line. Cursor down to desired line in Index. * * 2. Press Enter. The macro first erases the !, and * then finds the first word on the cursor line in the document * below marked with (...). * * See BOOK15.QM for more details. * @H Macrobegin Unmarkblock * Unmark any marked blocks Begfile Endline * Go to file begin endline "!" * Put ! at endline Begline Find "!" Return Return Begline * Highlight ! Pause * Pause for Index selection Wordright Markword * Mark first word on line Copy * Copy word to scrap buffer Begfile * Begfile Find "!" Return Return Delch * Find & delete ! Endpara * Go to end of Index Makectrofscreen * Cursor line center of window Find "(" Paste ")" Return "I" Return * Find first marked word in doc Jfalse NOMARK: Begline * If mark found go to begline Jump END: NOMARK: Begfile * If no mark found go to begfile END: * * 47 bytes Fri 09-14-1990 14:06:26 *┌───────────────────────────────────────────────────────────────────┐ *│ @(F1) Right Justify to file with same prefix, ".rj" extension │ *└───────────────────────────────────────────────────────────────────┘ * Macros @F1 and @F2 use the right justification program RJ.COM which is * included and must be located in current directory or path. See below * for documentation of RJ.COM. * @F1 macrobegin Unmarkblock Begfile Insertline * Insert temp line with |2.4 Dropanchor Currentfilename * CurrentFileName marked Find "." Return "B" Return * Find dot backwards Deltoeol ".rj" * THEN add ".rj" after dot |2.3 Cut Savefile * Cut name.rj to scrap/SaveFILE DOS "RJ " Currentfilename * Right justify file ">" Paste Return Return * Editfile Paste Return Quit * Editfile Return * Load justified file FIRSTWORD: * FIRSTWORD loop removes right * justification from last line * of paragraph, often neater! EndPara Begline * Get to end of paragraph Shiftright Wordright * Put cursor on start of first Shiftleft Cursorleft * word on line Markcolumn Endline Markcolumn * Marks from first word to eol *----Remove Right Justification From Last Line in Paragraph-------* Begline FindReplace " " Return " " Return "LN" Return Begline FindReplace " " Return Return "LN" Return Begline *|2.4 FindReplace " " Return Return "LN" Return *|2.4 Unmarkblock NextPara * Get to begin next paragraph jtrue FIRSTWORD: * More para? Loop again |2.4 FINISH: *ELSE Begfile * Go tof * * 126 bytes Tue 12-04-1990 20:55:28 * 119 bytes Fri 02-15-1991 12:50:02 * 106 bytes Wed 02-20-1991 16:28:30 * ......................Documentation for RJ.COM................... * * USAGE: RJ <INFILE> { PRINT_MARGIN F S } * * WHERE: 0=< PRINT_MARGIN =<40 Default = 0 enter like: 8 * F FILTERS control chars Default = OFF enter like: F * S SUPPRESS Line Feeds after CR Default = OFF enter like: S * * PURPOSE: RJ Right Justifies your printer output, making it look * professional. RJ right justifies text files by imbedding blanks * between words. It is compatible with VDE or any other ASCII text * editor. Public domain. * * METHOD: RJ imbeds spaces between words. It calculates the longest * line in the file (40 to 255 char), then justifies shorter lines (up * to 15% shorter ). Non-printable control characters are not counted * for formatting purposes, so leave them in if you wish. Carriage * Returns, Line Feeds, Form Feeds, and Tabs are always processed * normally and printed. Indenting at the beginning of the line is * disregarded, but any line with 3+ IMBEDDED spaces, or any line with * Tabs is not justified. This leaves tables, charts, etc. intact. * * HINTS: All parameters except INFILE are optional and they may be * entered in any order; the defaults are above. Note that the input file * is left unalterd; output defaults to the screen. This allows you to * preview your printer output. To print or copy your right justified * file, use the DOS redirection operator: RJ REPORT.TXT F 6 > PRN. Save * your normal parameters in a batch file. *┌──────────────────────────────────────────┐ *│ @(F2) Right Justify, screen preview │ *└──────────────────────────────────────────┘ * Macros @F1 and @F2 use the right justification program RJ.COM which is * included and must be located in current directory or path. See above * for documentation of RJ.COM. * @f2 Macrobegin Savefile DOS "RJ " Currentfilename Return * * 14 bytes Sun 12-02-1990 01:02:50 *┌───────────────────────────────────────────────────────────────────┐ *│@(F4) Removes Right Justification from line or block │ *└───────────────────────────────────────────────────────────────────┘ * Position cursor on first line to be un-justified, press @F4, then * cursor down to last line to be un-justified, and press <Enter>. * If cursor is between paragraphs, cursor is automatically placed on the * first word of the next paragraph. * @F4 Macrobegin Unmarkblock START: Endline Begline * Test if line not blank Jtrue FIRSTWORD: * If not blank, goto FIRSTWORD Wordright * If blank, goto first word Jump START: * and check for blank line again FIRSTWORD: * Shiftright Wordright * Put cursor on start of first Shiftleft Cursorleft * word on line, Gotocolumn "80" Return * Get all line in block *|2.4 Markcolumn Prevposition * Mark column at first word Begline * Reposition cursor Jfalse NEXT: * If first word in col. 1, * test is false, go to NEXT Prevposition * Otherwise, back to first word NEXT: Pause * Pause to cursor to last line Markcolumn * Mark end of block Gotoblockbeg * Get to block begin FindReplace " " Return " " Return "LN" Return FindReplace " " Return Return "LN" Return *|2.4 FindReplace " " Return Return "LN" Return *| Unmarkblock * Nextpara * Makectrofscreen * * * 87 bytes Fri 12-07-1990 12:32:09 * 81 bytes Wed 02-20-1991 12:48:50 *┌───────────────────────────────────────────────────────────────────┐ *│ @(F5) Removes Right Justification from DOCUMENT │ *└───────────────────────────────────────────────────────────────────┘ * @F5 Macrobegin Begfile Unmarkblock * START: * Endline Begline * Test if line not blank Jtrue FIRSTWORD: * If so, goto FIRSTWORD Wordright * If not, move to first word Jump START: * and check for blank line again FIRSTWORD: * FIRSTWORD loop removes right * justification from paragraph Begline Shiftright Wordright * Put cursor on start of first Shiftleft Cursorleft * word on line, Markcolumn Endpara * and start column mark Gotocolumn "80" Return * Be sure to get all para |2.4 * in block Markcolumn * Mark para as block Gotoblockbeg * Start @ block begin | FindReplace " " Return " " Return "LN" Return *| FindReplace " " Return Return "LN" Return *|2.4 FindReplace " " Return Return "LN" Return *| Unmarkblock *| NextPara * Get to begin next para | Jtrue FIRSTWORD: * More para? Loop again |2.4 FINISH: * No more paragraphs Begfile * * 96 bytes Wed 12-05-1990 10:42:45 * 80 bytes Wed 02-20-1991 12:46:32 *---------------------------- * @(F6) Right Justifies BLOCK *---------------------------- * * Mark block to right justify and press @F6. Block must be a line or * character block, NOT a column block. * * Remember, block to be right justified must * be at least 2 lines. Right justification * RJ.COM calculates the longest line in the * block (40 to 255 char), then justifies * shorter lines (up to 15% shorter) by * imbedding spaces between words. This block * was right justified with @F6 WITHOUT * asterisks. * @F6 Macrobegin *---Copy Block To Temp File-------------* Editfile "c:!" Return * Load temp file c:! Killfile Quit * Kill/quit it Gotoblockbeg * Position cursor to come back Jfalse STOP: * Stop macro if no block Onewindow * Close all windows Horizontalwindow Zoomwindow * Open window |2.5 Editfile Return * Load blank temp file c:! Copyblock * Copy block to c:! *---Cut "c:!.rj" To Scrap---------------* Unmarkblock Begfile * Unmark block & go to bof c:! Insertline Currentfilename * Insert CurrentFileName "c:!" ".rj" * Add ".rj" extension Cut * Cut "c:!.rj" to scrap *>>> QCONFIG.DAT must be configured to cut unmarked lines to scrap: <<< *>>> Should Cut and Copy use current line if no block marked (Y/N)? [Y] Savefile * Save c:! to right justify it *---Right Justify Temp File-------------* DOS "RJ " Currentfilename * Right justify c:! temp file ">" Paste Return Return * to c:!.rj Editfile Paste Return Quit * Quit c:!.rj if loaded Horizontalwindow Zoomwindow * Open window |2.5 Editfile Return * Load justified file c:!.rj *---Mark Right Justified Block----------* Markcolumn * Begin marking at tof Endfile * Go to eof Gotocolumn "80" Return * Get all text in block Cursorup Markcolumn * Move up off blank line, mark *---Copy Right Justified Block Back-----* Nextwindow * Return to orig file Copyoverblock * Copy right justified block * back to where we were *---Clean Up Temp Files, View RJ Block--* Nextwindow Killfile Quit * Kill/quit c:!.rj and return * to where we started Editfile "c:!" Return * Load c:! to kill/quit Killfile Quit * and do it! Gotoblockbeg * Go back to where we started & * unmark/save file if OK! STOP: * We're done..... * * 81 bytes Wed 02-20-1991 15:18:39 * 83 bytes Mon 02-25-1991 06:51:47 added Zoomwindow's * ┌─────────────────────────────────────────────┐ * │@(F7) Deletes ALL BLANK lines in document │ * └─────────────────────────────────────────────┘ * Single space document. * @F7 Macrobegin Begfile * Go to bof CHK4BLANK: * Endline Begline * Check if line has text Jtrue NOTBLANK: * If so, go to NOTBLANK Delline * Or line is blank, delete it Jtrue CHK4BLANK: * Go check next line NOTBLANK: *ELSE Endpara * Move to pargraph end Cursordown * Move down to blank line | Jtrue CHK4BLANK: * If not eof, check again |2.4 Begfile * Go to bof * * 23 bytes Thu 10-11-1990 20:59:17 * 20 bytes Wed 02-20-1991 16:48:58 * ┌────────────────────────────────────────────────────────────────┐ * │@(F8) Deletes all but single space blank lines in documennt │ * └────────────────────────────────────────────────────────────────┘ * Puts first non-blank line on top. * @F8 Macrobegin Begfile * Go to bof CHK4BLANK: * Endline Begline * Check if line has text Jtrue NOTBLANK: * If text, go to NOTBLANK Delline *ELSE delete blank line | Jtrue CHK4BLANK: * Go check this line | NOTBLANK: *ELSE Endpara * Move to pargraph end Cursordown * Move to blank line 1 |2.4 Cursordown * And down to next line Jtrue CHK4BLANK: * If not eof, check again |2.4 Begfile *ELSE at eof, go to bof | * * 24 bytes Thu 10-11-1990 21:12:50 * 21 bytes Wed 02-20-1991 16:46:39 *---------------------------- * @(F9) Double Space document *---------------------------- * * With cursor anywhere in a document, press @F9 and document will * be double spaced with a single blank line between each text line. * * Removing the five lines marked with ** in the @f10 macro below will * also double space a document like @F9 does. * @F9 Macrobegin Begfile * Start at tof START: Endline Begline * ? if line has text Jfalse DEL_BLANK: * No text, go to DEL_BLANK: INS_BLANK: *----------------Insert Blank Line LOOP-----------------* *ELSE line is not blank, and Cursordown * Move down to check next line Jfalse END: * If at eof, END macro * Endline Begline *ELSE ? if next line has text Jfalse NEXT_LINE: * No text, go to NEXT_LINE *ELSE line is not blank, and Insertline * Insert blank line between * two text lines Cursordown * Move down to next line Jump INS_BLANK: * Go check this line for text NEXT_LINE: Cursordown * Move down to check next line Jump START: * Go check line for text DEL_BLANK: *---------Delete More Than One Blank Line LOOP----------* Cursordown * Move down to check if eof Jfalse END: * If at eof, END macro *ELSE not yet at eof, and Cursorup * Move back up to second blank Delline * line and delete it Jump START: * Go check line for text END: * Begfile * * * 38 bytes Fri 02-22-1991 13:22:05 *------------------------------ * @(F10) Triple space document *------------------------------ * * With cursor anywhere in a document, press @F10 and document will * be triple spaced with two blank lines between each text line. * * Removing the four lines marked with ** in this macro will double space * a document like @F9 (a simpler shorter macro) does. * @F10 Macrobegin Begfile * Start at tof INITIAL: *----------Delete All Blanks lines on Top LOOP-------------* Endline Begline * ? if top line has text Jtrue START: * If text line, go to START Delline *ELSE delete line Jump INITIAL: * and continue until no blank * lines on top START: *--------------Check Line For Text LOOP--------------------* Endline Begline * ? if line has text Jfalse DEL_BLANK: * No text, go to DEL_BLANK: INS_BLANK: *----------------Insert Blank Line LOOP-----------------* *ELSE line is not blank, and Cursordown * Down to next line Jfalse END: * If at eof, END macro Endline Begline * ? if next line has text Jfalse DEL_BLANK: * If line blank. go check next * line *ELSE line is not blank, then Insertline * insert blank line Addline ** And another Cursordown * Move down to next line Jump INS_BLANK: * Go check next line for text DEL_BLANK: *-----------------Delete Blank Line LOOP----------------* Cursordown * Move down off first blank line Jfalse END: * If at eof, END macro *ELSE not yet at eof, and Endline Begline * Check line for text Jfalse CONTINUE: * If blank, go to CONTINUE: Insertline **ELSE must be text line and * insertline blank #2 Cursordown ** Down to text line Jump INS_BLANK: * Go check next line CONTINUE: Cursordown ** Move down to next line NEXT: *---------Delete More Than 2 blank lines LOOP-----------* Endline Begline * Check line for text Jtrue INS_BLANK: * If text, go check next line * for text *ELSE line is blank Delline * and delete it Jfalse END: * If at eof, can't delete more * than 1 blank line, then END Jump NEXT: * Loop to delete blank lines * until text line END: * Here to END Begfile * Back to top triple space file * * 58 bytes Sat 02-23-1991 12:15:45 Double Space (** lines removed) * 62 bytes Sun 02-24-1991 13:33:59 Triple Space * *------------------------------------------------ * * @(F10) Triple space document, Alternate version * *------------------------------------------------ * * * * This alternate version of @F10 will also triple space a document but * * will take about twice as long to do. Removing the two lines marked * * with ** will also double space documents but also more slowly! * * * @F10 Macrobegin * *-----Insert single space blank line after every text line---* * Begfile * Go to bof * CHK4BLANK: * * Endline Begline * Check if line has text * Jfalse NOTBLANK: * If no text, go to NOTBLANK * Addline *ELSE line is text, add line * Addline ** Remove for double space * Cursordown * Move down to blank line * Jump CHK4BLANK: * Go check this line * NOTBLANK: *ELSE line has text * Cursordown * Move down to next line * jtrue CHK4BLANK: * If not at eof, check for text * *-----Delete all but single space blank lines-----* * Begfile *ELSE Go to bof to get rid of * CHK4BLANK2: * extra blank lines * Endline Begline * Check if line has text * Jtrue NOTBLANK2: * If text, go to NOTBLANK2 * Delline *ELSE line is blank, delete it * Jtrue CHK4BLANK2: * Go check next line * NOTBLANK2: *ELSE line was blank and * Cursordown * Move down to next line * Cursordown * Move down to next line * Cursordown ** Remove for double space * Jtrue CHK4BLANK2: * If not eof, check again * Begfile * Spacing done, Go to tof... * * * * 37 bytes Thu 02-21-1991 13:06:11 * ============================================================================== * Date: 10-10-90 (11:44) Number: 10442 SemWare Support BBS * To: ALL Refer#: NONE * From: SAMMY MITCHELL Read: NO * Subj: MACROS Conf: (0) Main Board * ------------------------------------------------------------------------ * We (SemWare) have been asked on many occasions how to change the CR/LF * characters at EOF to something else. In most instances, the task that * the user wanted to accomplish could be done in another way. For * example, we've had many requests to convert a mailing list file to a * comma delimited file for import into a database. Here are some example * macros to make a comma delimited file, and convert a comma delimited * file back to its original format. These macros will have to be * compiled with Qmac, as they are too large for Qconfig. I do hope that * this helps someone! * * (Key assignements changed TH Wed 10-10-1990 ) * --------------------------------------------------------------------- * ^(F9_) Macro to make a comma delimited file from a file of the format: * --------------------------------------------------------------------- * record 1 * record 2 * record n * * Each group of name/address must be followed by at least one blank * line. ^F9 MacroBegin BegFile * Make sure at top While1: BegLine EndLine JTrue While2: * Break out if non empty line DelLine * Delete the blank line CursorDown JFalse Macroexit: * Exit macro if eof CursorUp * Back up to the line to test Jump While1: * Keep looping while blank * nonblank line found - see if next line is nonblank also While2: CursorDown JFalse Macroexit: * exit macro if eof BegLine EndLine JFalse While1: * if blank line, start over CursorUp EndLine "," JoinLine * join the next line Jump While2: * and keep on until blank Macroexit: BegFile * show user bof * * 37 bytes Wed 10-10-1990 22:16:45 (line added TH) * --------------------------------------------------------------------- * ^(F10_) Macro to "break apart" a comma delimited file, as created from * the ^F9 macro above. * --------------------------------------------------------------------- ^f10 MacroBegin BegFile * Start at bof find_first_comma: Find "," Return "" Return * Find first comma jFalse macroexit: * Exit if none makeline: UnMarkBlock DelCh * Delete the ',' SplitLine * Split the line CursorDown * Next line BegLine * Column 1 * remove leading blanks delete_blanks: UnMarkBlock DropAnchor Find " " Return "GL" Return * Blank found? jFalse continue * No, continue DelCh * Delete it jump delete_blanks: * And try again continue: UnMarkBlock MarkLine * Look for next ,' on line Find "," Return "L" Return * jTrue makeline: * Split if found UnMarkBlock AddLine * Otherwise, add a blank line jump find_first_comma: * And look for another ',' macroexit: BegFile * Show user bof * * 54 bytes Wed 10-10-1990 22:17:04 (line added TH) * * That's all, folks! * ┌───────────────────────────────────────────────────────────────────┐ * │^(b) Replace "period space" w/ "period space space" - PARAGRAPH │ * └───────────────────────────────────────────────────────────────────┘ * This macro was written by Tim Farley of SemWare. * * ========================================================================= * Date: 01-18-91 (13:59) Number: 3433 SemWare Support BBS * To: BOB LONG Refer#: 3430 * From: TIM FARLEY Read: YES * Subj: Legibility breaks Conf: (21) ILink * ------------------------------------------------------------------------ * BL>It had to do with retaining double spaces between sentences * BL>even when they fall at the ends of lines and then get moved when the * BL>paragraph is reformed. I reinstalled 2.1, choosing the option to * BL>retain trailing blanks, but QEdit still removes one blank. * BL> * BL>Is there a workaround? * * The only workaround I know for that one would be to encase * WrapPara in a macro, that would mark the entire paragraph as a * block, and do a global search and replace (limited to the block) * to change ". " to ". " to put the spaces back in. Kludgy, and * not perfect, but perhaps workable. * * Here's what it would look like: * * * * * WrapPara modification: retains double spacing after "." chars. * * ^b MacroBegin UnmarkBlock * we're going to be using blocks MarkCharacter WrapPara * Wrap paragraph & mark rest of it MarkCharacter GotoBlockBeg * Close mark & go to begin of it FindReplace ". " Return * Change period with single space ". " Return "LN" Return * to one with double space. JFalse end: * None? We're done... FindReplace ". " Return * Now fix any that ended up with 3 ". " Return "LN" Return * to have just two again. end: GotoBlockEnd UnmarkBlock * * 54 bytes Fri 01-18-1991 21:23:45 (line added TH January 18, 1991) * * As usual, remove the comments to the right, and reformat this all on one * line if you plan to put it in QCONFIG.DAT. * * --Tim Farley * ┌──────────────────────────────────────────────────────────────────┐ * │^(c) Replace "period space" w/ "period space space" - DOCUMENT │ * └──────────────────────────────────────────────────────────────────┘ * * Change "GN" to "G" for replacement with confirmation. * ^c MacroBegin FindReplace ". " Return ". " Return "GN" Return FindReplace ". " Return Return "GN" Return *|2.4 * * 44 bytes Sat 01-19-1991 11:18:17 * 38 bytes Wed 02-20-1991 01:09:09 * (VERSION) HISTORY: * * 1.1 - added Alt_6,7 & 8 to format QMAC txtfiles * 1.1a- modified Alt_8,9 & 10 to get off screen-text in block * 1.2 - added Alt_5 to format entire document QUICKLY keeping * indented paragraph positions in place * Alt_4 to format entire document keeping indented * paragraph positions in place * Alt_3 to format paragraph only * - modified other macros to handle line widths to 512 * 1.2a- modified this documentation * 1.2b- Added @2 to make single column txtfile from * QMAC txtfile, v1.2b * 1.2c- changed 160 in @9 to 512 * 1.2d- @2 removed, now in COLUMN10.ZIP * - @4 removed * - added killfile @0 * - changed macro comments * 1.3 - added Alt_1 & 2 to put asterisk and space in front * of blocks and paragraphs * 1.4 - added Alt_4 to remove asterisk and space in column 1 * 1.5 - added Alt_t (from Tim Farley) to do the same as Alt_1 * - changed key assignments * - added Alt_2 to remove asterisks in front of blocks * - shortened Alt_1 to 32 bytes * 1.5a- modified Alt_1 to handle blocks with blank lines * - changed "60" in Ctl_0 to "69" * - Alt_t modified by Tim Farley to correctly handle column * and single line blocks. * 1.5b- corrected documentation * 1.5c- Changed file name REFORMxx to RFRMxx. * 1.6 - Added @5. * - Changed ^5 and ^9 right margin to 69. * - Shortened ^8,9 and 0. * 1.7 - Added @h to help locate items or macros from Index. * - Added @8 to have sentences end with "period space space" * - Added ^7 to Formats Message Reader Paragraph (Tim Farley) * 1.8 - Added @9 and @0 to count number of words in a document. * - Added @n to count number of characters in a document. * - Added @F3 and @F4 to delete blank lines in documents. * - Added ^1/^2 to make/break-apart a comma delimited file. * (Written by Sammy Mitchell, SemWare) * 1.9 - Shortened and removed redundant commands from @0. * 2.0 - Added @F1 and @F2 to right justify documents. * - Added @F4 and @F5 to remove right justification. * - Modified documentation and added START.BAT. * - Changed REFORM file names to RFRM. * - Changed some key assignments. * 2.1 - Modified documentation (@f4 and @f5). * 2.2 - Corrected @h Index Use instructions. * - Added ^b to change ". " to ". " in PARAGRAPHS. * - Modidfied ^c to change ". " to ". " in DOCUMENTS. * 2.3 - Modified @F1 to handle file names with no extension & * shortened 7 bytes. * 2.4 - Added @f6 to right justify line or character blocks. * - Added @F3 to capitalize first letter of every word in * column block. * - Added @F9 to Double Space all text lines in document. * - Added @F10 to Triple Space all text lines in document. * - Corrected, modified & shortened @F1,@F4 & @f5. * - Shortened @F7, @F8, @0, @n & ^c. * 2.5 - Added ^1 to move block, fill old block with blanks. * - Added #f1 to capitalize word * - Added #f2 to capitalize first letter of word * - Added #f4 to un-capitalize word * - Changed @f3 key to #f3. * - Made @f6 smoother by addding Zoomwindow. * - Corrected size of @f10 in Index. * Tom Hogshead March 10, 1991